home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / PDM_ED / EXAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-17  |  885b  |  39 lines

  1. Program example;
  2.  
  3. Uses
  4.   Crt,
  5.   Pdm_Use;
  6.  
  7. var
  8.   PDM_Code : Byte;
  9.  
  10. Begin
  11.  
  12.   ClrScr;
  13.  
  14.   If ActivePDM_File('example.pdm') Then
  15.      PDM_Code := UserSelectedPDM_Code;
  16.  
  17.   Window(1,1,80,25);
  18.   ClrScr;
  19.  
  20.   Case PDM_Code Of
  21.      1: Writeln('User Selected Option 1');
  22.      2: Writeln('User Selected Option 2');
  23.      3: Writeln('User Selected Option 3');
  24.      4: Writeln('User Selected Option 4');
  25.      5: Writeln('User Selected Option 5');
  26.      6: Writeln('User Selected Option 6');
  27.      7: Writeln('User Selected Option 7');
  28.      8: Writeln('User Selected Option 8');
  29.      9: Writeln('User Selected Option 9');
  30.      10: Writeln('User Selected Option 10');
  31.      11: Writeln('User Selected Option 11');
  32.      12: Writeln('User Selected Option 12');
  33.      13: Writeln('User Selected Option 13');
  34.      14: Writeln('User Selected Option 14');
  35.      15: Writeln('User Selected Option 15');
  36.   End; { Case }
  37.  
  38. End.
  39.